home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / stomp / stomp.frm < prev    next >
Text File  |  1995-09-06  |  4KB  |  147 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2820
  6.    ClientLeft      =   1830
  7.    ClientTop       =   1650
  8.    ClientWidth     =   5325
  9.    Height          =   3225
  10.    Left            =   1770
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2820
  13.    ScaleWidth      =   5325
  14.    Top             =   1305
  15.    Width           =   5445
  16.    Begin CommandButton Command4 
  17.       Caption         =   "Exit"
  18.       Height          =   255
  19.       Left            =   3630
  20.       TabIndex        =   9
  21.       Top             =   1140
  22.       Width           =   1275
  23.    End
  24.    Begin CommandButton Command3 
  25.       Caption         =   "Select"
  26.       Height          =   255
  27.       Left            =   3630
  28.       TabIndex        =   8
  29.       Top             =   420
  30.       Width           =   1245
  31.    End
  32.    Begin CommandButton Command2 
  33.       Caption         =   "Select"
  34.       Height          =   255
  35.       Left            =   3630
  36.       TabIndex        =   7
  37.       Top             =   90
  38.       Width           =   1245
  39.    End
  40.    Begin CommandButton Command1 
  41.       Caption         =   "Do It"
  42.       Height          =   255
  43.       Left            =   3630
  44.       TabIndex        =   6
  45.       Top             =   840
  46.       Width           =   1275
  47.    End
  48.    Begin OptionButton Option1 
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "UnCompress"
  51.       Height          =   195
  52.       Index           =   1
  53.       Left            =   90
  54.       TabIndex        =   5
  55.       Top             =   1440
  56.       Width           =   1395
  57.    End
  58.    Begin OptionButton Option1 
  59.       BackColor       =   &H00C0C0C0&
  60.       Caption         =   "Compress"
  61.       Height          =   225
  62.       Index           =   0
  63.       Left            =   90
  64.       TabIndex        =   4
  65.       Top             =   1200
  66.       Width           =   1935
  67.    End
  68.    Begin TextBox Text2 
  69.       Height          =   285
  70.       Left            =   1500
  71.       TabIndex        =   2
  72.       Top             =   390
  73.       Width           =   2085
  74.    End
  75.    Begin TextBox Text1 
  76.       Height          =   285
  77.       Left            =   1500
  78.       TabIndex        =   1
  79.       Top             =   90
  80.       Width           =   2085
  81.    End
  82.    Begin Label Label2 
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "Destination File:"
  85.       Height          =   225
  86.       Left            =   60
  87.       TabIndex        =   3
  88.       Top             =   390
  89.       Width           =   1455
  90.    End
  91.    Begin Label Label1 
  92.       BackStyle       =   0  'Transparent
  93.       Caption         =   "Source File:"
  94.       Height          =   225
  95.       Left            =   90
  96.       TabIndex        =   0
  97.       Top             =   120
  98.       Width           =   1095
  99.    End
  100. End
  101.  
  102. Sub Command1_Click ()
  103. If Trim(text1.Text) = "" Then flag = 1
  104. If Trim(text2.Text) = "" Then flag = 1
  105. If flag = 1 Then
  106.     MsgBox "Select A File First", 16, "DRAGON SOFTWARE"
  107.     Exit Sub
  108. End If
  109.  
  110. src$ = Trim(text1.Text)
  111. dst$ = Trim(text2.Text)
  112. If option1(0).Value = True Then
  113.     x% = doit(Trim(src$), Trim(dst$))
  114. Else
  115.     x% = undoit(Trim(src$), Trim(dst$))
  116. End If
  117.  
  118. If x% = 1 Then
  119.     MsgBox "SUCCESSFUL", 64, "DRAGON SOFTWARE"
  120. End If
  121. If x% = 2 Then
  122.     MsgBox "UNSUCCESSFUL", 16, "DRAGON SOFTWARE"
  123. End If
  124.  
  125.  
  126. End Sub
  127.  
  128. Sub Command2_Click ()
  129. which = 1
  130. filedlg.Show
  131. End Sub
  132.  
  133. Sub Command3_Click ()
  134. which = 2
  135. filedlg.Show
  136.  
  137. End Sub
  138.  
  139. Sub Command4_Click ()
  140. End
  141. End Sub
  142.  
  143. Sub Form_Load ()
  144. option1(0).Value = True
  145. End Sub
  146.  
  147.